home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 04 / 4 / DISK0442.ZIP / SAMPLE.CDE < prev    next >
Text File  |  1987-10-04  |  2KB  |  58 lines
  1. ')?#
  2. FOR I:=1 TO ORD(LI) DO BEGIN~---~END?<LEN INFIX>?
  3.   ?CPAGE@.STRNG[LSP]:=TINFX[I];~LSP:=SUCC(LSP)?#
  4. ELSE IF NOT PRINTABLE THEN BEGIN~---~END?<ERROR>?
  5.   ?OUTP;~WRITELN(OUTDIAG,' ***** MAJOR ERROR SUPPRESSED OUTPUT.',?#
  6. OUTP;WRITELN(OUTDIAG,' ***** MAJOR ERROR SUPPRESSED OUTPUT.',??
  7.   ?' CORRECT BEFORE RE-RUNNING.')?#
  8. ELSE BEGIN~---~END!844?<SUCCESS>?
  9.   ?IF SRCFLAG THEN BEGIN~---~END;??
  10.   ?IF PLIFLAG THEN BEGIN~---~END;??
  11.   ?PDN:=DDN;??
  12.   ?(*GO PAGINATE*)??
  13.   ?PDN[6]:='-';??
  14.   ?PDN[7]:=CPN[2];~PDN[8]:=CPN[3];??
  15.   ?(*CLOSE LAYOUT STAGE*)??
  16.   ?(*FILL IN PAGE NUMBERS AS FINALLY PAGINATED*)??
  17.   ?(*OUTPUT ROOT PAGE*)??
  18.   ?(*SUBPAGE OUTPUT*)??
  19.   ?OUTP;WRITELN(OUTDIAG,' PRINT DONE AT    ',CLOCK);??
  20.   ?OUTP;WRITELN(OUTDIAG,' NODES:',NCT:5,';   PAGES:',?#
  21. OUTP;WRITELN(OUTDIAG,' NODES:',NCT:5,';   PAGES:',??
  22.   +?LPCNT:3,';   N/P:',(NCT DIV LPCNT):4,';   PASSES:',PASSCNT:3,?+++?
  23.   +?';   CODE PAGES:',NSP:2)?#
  24. IF SRCFLAG THEN BEGIN~---~END;?<SRCPUNCH>?
  25.   ?(*BODY AND ENDWARNIER*)??
  26.   ?OUTP;WRITELN(OUTDIAG,' SRCPUNCH DONE AT ',CLOCK);?#
  27. (*BODY AND ENDWARNIER*)??
  28.   ?SRCOUT(H);??
  29.   ?WRITELN(SRCPUNCH,EWDL);?#
  30. IF PLIFLAG THEN BEGIN~---~END;?<PLIPUNCH>?
  31.   ?PLIOUT(H);??
  32.   ?OUTP;WRITELN(OUTDIAG,' PLIPUNCH DONE AT ',CLOCK)?#
  33. (*GO PAGINATE*)??
  34.   ?PASSCNT:=0;??
  35.   ?REPEAT~---~UNTIL((GMXH<=DGMPL)AND(GMXD<=COLPP))OR(NQ=0);?#
  36. REPEAT~---~UNTIL((GMXH<=DGMPL)AND(GMXD<=COLPP))OR(NQ=0);?<PAGEPASSES>?
  37.   ?NQ:=0;~GMXH:=0;~PASSCNT:=SUCC(PASSCNT);??
  38.   ?(*DET'N OF NQLIM*)??
  39.   ?FOR I:=1 TO MAXDEPTH DO TOTWIDTH[I]~:=-1;??
  40.   ?CONVERT(PASSCNT,CPN);??
  41.   ?H@.ST:=~LAYOUT(H@.NLVL)-ORD(H@.LPN) DIV 2;??
  42.   ?IF (NQ>0) AND ~((GMXH>DGMPL)OR ~(GMXD>COLPP)) THEN DOPAGES?#
  43. (*DET'N OF NQLIM*)??
  44.   ?NQLIM:=(NCT DIV 35)-LPCNT+1;??
  45.   ?IF PASSCNT>NQLIM THEN NQLIM:=LPCNT DIV 2;??
  46.   ?IF NQLIM=0 THEN NQLIM:=1;?#
  47. (*CLOSE LAYOUT STAGE*)??
  48.   ?OUTP;WRITELN(OUTDIAG,' LAYOUT DONE AT   ',CLOCK);??
  49.   ?IF (NQ=0) AND ~((GMXH>DGMPL) OR ~(GMXD>COLPP)) THEN?#
  50. IF (NQ=0) AND ((GMXH>DGMPL) OR (GMXD>COLPP)) THEN??
  51.   ?(*ANY ERROR ~MESSAGE*)??
  52.   +?BEGIN~---~END;!1146?#
  53. +BEGIN~---~END;!1146?<ERROR>?
  54.   ?OUTP;~WRITELN(OUTDIAG,' ***** NO PAGE ',?#
  55. OUTP;WRITELN(OUTDIAG,' ***** NO PAGE ',??
  56.   +?'CANDIDATE.  PAGINATION HALTED AT ',LPCNT:3,?+++?
  57.   +?' PAGES WITH ',GMXH:4,' LINES AND ',GMXD:2,' COLUMNS.')?#
  58. (*FILL IN PAGE NUMBER